home *** CD-ROM | disk | FTP | other *** search
- // VirtuaLight VIB-Structure
-
- ReadArchive "defshaders.vs"
-
- Camera [ (-5,4.5,-8),(0,0,0),(0,1,0) FieldOfView 34 Format(320, 240) FrameAspectRatio 4/3 ]
-
- Background '.098039, .098039, .392157'*0.9
-
- PointLight [ (-50,50, -50) Intensity i ]
- PointLight [ (55,40, -40) Intensity i ]
- PointLight [ (-20,40, 55) Intensity i/4 LightingAttributes SPECULAR ]
-
- Declare A = Shape [ Superquadric(0.4,0.4) primitive ]
- Declare B = Shape [ Sphere((0, 1, 0), 0.75) infocus ]
-
- Solid [ A + B Translate(-2, 0, 2) ]
- Solid [ A - B Translate(2, 0, 2) ]
- Solid [ A * B Translate(-2, 0, -3) ]
- Solid [ A & B Translate(2, 0, -2) ]
-
- Shape [ Disk((0,-1,0), (0,1,0), 500) ground ]
-